home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh46a.d64 / au-gen 3.1_bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  26KB  |  974 lines
  1. 1000 REM *****************************
  2. 1010 REM *                           *
  3. 1020 REM *                           *
  4. 1030 REM * DER AUFGABEN-GENERATOR    *
  5. 1040 REM *                           *
  6. 1050 REM * (C) U. SCHWEBINGHAUS      *
  7. 1060 REM *                           *
  8. 1070 REM *                     1988  *
  9. 1080 REM *****************************
  10. 1090 :
  11. 1100 FOR I=1 TO 35:READ A:POKE 49151+I,A:NEXT I
  12. 1110 REM *** KONSTANTEN U. VARIABLE ***
  13. 1115 :
  14. 1120 DIM AD$(24),LO$(24),X%(9),B$(7,9)
  15. 1124 DEFFN A(X)=  (-ATN(X/SQR(-X*X+1))+(null)/2)*180/(null)
  16. 1125 H1$="[196]ER [199]RAPH EINER LINEAREN [198]UNKTION_"
  17. 1127 H2$="[215]IE LAUTET DIE [198]UNKTIONSGLEICHUNG?"
  18. 1130 RV$="":RO$="[146]":CD$=""
  19. 1140 RA$="[159][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  20. 1142 AT$="[184][193][213]-[199][197][206] *** [221]BUNGSAUFGABEN[170]"
  21. 1143 AL$="[184][204]\SUNGEN[170]"
  22. 1145 H3$="[147]"+CHR$(14):LE$="   "
  23. 1150 Z(1)=7:Z(2)=9:Z(3)=4:Z(4)=1:Z(5)=3:Z(6)=7:Z(7)=1:REM    UNTERMENUE-PUNKTE
  24. 1160 T(1)=0:T(2)=5:T(3)=10:T(4)=15:T(5)=21:T(6)=19:T(7)=35:REM   X-POSITIONEN
  25. 1170 POKE 53280,11:POKE 53281,11:REM SCHIRMFARBE
  26. 1180 A$(1)="DATA"
  27. 1190 A$(2)="LFKT"
  28. 1200 A$(3)="QFKT"
  29. 1210 A$(4)=" LGS"
  30. 1220 A$(5)="Q.GL"
  31. 1230 A$(6)="VEKT"
  32. 1240 A$(7)="EXIT"
  33. 1250 B$(1,1)="SAVE "
  34. 1260 B$(1,2)="PRINT"
  35. 1270 B$(1,3)="DIR  "
  36. 1280 B$(1,4)="LOAD "
  37. 1290 B$(1,5)="DISK "
  38. 1295 B$(1,6)="ERASE"
  39. 1300 B$(1,7)="INFO "
  40. 1310 B$(2,1)="ZWEI PUNKTE       "
  41. 1320 B$(2,2)="NST U. PUNKT      "
  42. 1330 B$(2,3)="NST U. STEIGUNG   "
  43. 1340 B$(2,4)="NST U. Y-ABSCHNITT"
  44. 1350 B$(2,5)="PUNKT U. STEIGUNG "
  45. 1360 B$(2,6)="PKT U. Y-ABSCHNITT"
  46. 1370 B$(2,7)="PUNKT U. WINKEL   "
  47. 1380 B$(2,8)="STG U. Y-ABSCHNITT"
  48. 1390 B$(2,9)="GLEICHUNG --> PKT."
  49. 1400 B$(3,1)="GLEICHUNG --> PKT."
  50. 1410 B$(3,2)="SCHEITEL  --> GL. "
  51. 1420 B$(3,3)="DREI PKT. --> GL. "
  52. 1430 B$(3,4)="GERADE/PARABEL    "
  53. 1440 B$(4,1)="GLEICHUNGS-SYSTEM "
  54. 1450 B$(5,1)="GANZZAHLIG"
  55. 1460 B$(5,2)="REELL     "
  56. 1470 B$(5,3)="KOMPLEX   "
  57. 1480 B$(6,1)="ZWEI PKT. --> GERADE"
  58. 1490 B$(6,2)="DREI PKT. KOLLINEAR?"
  59. 1500 B$(6,3)="GERADE/GERADE       "
  60. 1510 B$(6,4)="DREI PKT. --> EBENE "
  61. 1520 B$(6,5)="VIER PKT. KOMPLANAR?"
  62. 1530 B$(6,6)="EBENE/EBENE         "
  63. 1540 B$(6,7)="GERADE/EBENE        "
  64. 1545 B$(7,1)="ENDE"
  65. 1547 :
  66. 1548 REM *** DRUCKERSTRINGS ***
  67. 1549 :
  68. 1550 DV$=CHR$(10):D0$=CHR$(27)+CHR$(77)+CHR$(27)+CHR$(108)+CHR$(5)
  69. 1551 D1$=CHR$(27)+CHR$(45)+CHR$(1)
  70. 1552 D2$=CHR$(27)+CHR$(45)+CHR$(0)
  71. 1553 D3$=CHR$(27)+CHR$(83)+CHR$(0)
  72. 1554 D4$=CHR$(27)+CHR$(83)+CHR$(1)
  73. 1555 D5$=CHR$(27)+CHR$(84)
  74. 1560 :
  75. 1565 U=1:Z%=1:ZZ=RND(TI)
  76. 1567 :
  77. 1570 REM *** HAUPTMENUE-DRUCK ***
  78. 1580 :
  79. 1590 PRINT"[147][129]"CHR$(142)CD$
  80. 1600 PRINTTAB(5)"  [209]   [209]   [209]      [209][209][209]  [209][209][209][209] [209]  [160][209]
  81. 1610 [153][163]5)" (null) (null)  (null)  CLOSE(null)     (null)   (null) (null)    (null)   (null)
  82. 1620 PRINTTAB(5)"[209]   [209] [209]   [209]     [209]     [209]    [209][209]  [209]
  83. 1630 [153][163]5)"(null)(null)(null)(null)(null) (null)   (null) (null)(null)(null)CLOSE(null)  (null)(null) (null)(null)(null)  (null) (null) (null)
  84. 1640 PRINTTAB(5)"[209]   [209] [209]   [209]     [209]   [209] [209]    [209]  [209][209]
  85. 1650 [153][163]5)"(null)   (null)  (null)(null)(null)     CLOSE (null)(null)(null)  (null)(null)(null)(null) (null)  CLOSE(null)
  86. 1660 PRINT
  87. 1670 PRINTTAB(10) "[159]DER AUFGABEN-GENERATOR
  88. 1680 [153]
  89. 1690 [153][163]10) "(C) U. SCHWEBINGHAUS
  90. 1700 PRINT"";
  91. 1710 FOR I=1 TO 7
  92. 1720 IF I=U THEN PRINT ""RV$ A$(I)RO$"  ";
  93. 1730 IF I<>U THEN PRINT "[158]"A$(I)"  ";
  94. 1740 NEXT I
  95. 1750 PRINT""RA$
  96. 1760 :
  97. 1770 REM *** WAHLSCHLEIFE IM HAUPTMENUE ***
  98. 1780 :
  99. 1790 GOSUB2020
  100. 1800 GOSUB 9160
  101. 1810 IF A$="" THEN GOTO 1910
  102. 1820 PRINT ""TAB((U-1)*6)"[158]" A$(U);:V=0
  103. 1830 IF A$="" THEN U=U+1:IF U>7 THEN U=1
  104. 1840 IF A$="[157]" THEN U=U-1:IF U<1 THEN U=7
  105. 1850 PRINT ""TAB((U-1)*6) ""RV$ A$(U) RO$;
  106. 1860 GOSUB2020
  107. 1870 GOTO1800
  108. 1880 :
  109. 1890 REM *** WAHLSCHLEIFE IN DEN UNTERMENUES ***
  110. 1900 :
  111. 1910 V=1
  112. 1920 PRINT"[158]" RV$ TAB(T(U)) B$(U,V)
  113. 1930 GOSUB 9160
  114. 1933 IF A$=CHR$(13) AND U=7 THEN PRINT"[147]":END
  115. 1935 IF A$=CHR$(13) THEN ON U GOSUB 2100,2110,2120,2130,2140,2150:GOTO 1570
  116. 1940 PRINT"" LEFT$(CD$,V+2) TAB(T(U)) B$(U,V)
  117. 1950 IF A$="" THEN V=V+1:IF V>Z(U) THEN V=1
  118. 1960 IF A$="[145]" THEN V=V-1:IF V<1 THEN 1790
  119. 1970 PRINT"[158]" LEFT$(CD$,V+2) TAB(T(U)) RV$ B$(U,V) RO$
  120. 1980 GOTO1930
  121. 1990 :
  122. 2000 REM *** DRUCK DER UNTERMENUES ***
  123. 2010 :
  124. 2020 PRINT"" :SYS 49152
  125. 2030 FOR I=1 TO Z(U)
  126. 2040 PRINT ""TAB(T(U)) B$(U,I)
  127. 2050 NEXT I
  128. 2060 RETURN
  129. 2070 :
  130. 2080 REM *** PROGRAMM-VERTEILER ***
  131. 2090 :
  132. 2100 ON V GOSUB 3000,3200,3400,3600,3800,3900,4000:RETURN
  133. 2110 ON V GOSUB 4200,4400,4600,4800,5000,5200,5400,5600,5800:RETURN
  134. 2120 ON V GOSUB 6000,6200,6400,6600:RETURN
  135. 2130 ON V GOSUB 6800:RETURN
  136. 2140 ON V GOSUB 7000,7200,7400:RETURN
  137. 2150 ON V GOSUB 10010,10160,10350,10880,11020,11250,11780:RETURN
  138. 2160 :
  139. 3000 REM *** SPEICHERN ***
  140. 3010 :
  141. 3015 IF AD$(1)="" THEN 3100
  142. 3020 PRINT H3$ B$(1,1):F$=""
  143. 3030 PRINT"[198]ILE-[206]AME (<[210][197][212][213][210][206]> ZUM [193]USSTIEG)":PRINT:INPUT F$:IFF$=""THEN3100
  144. 3040 OPEN 1,8,5,F$+",S,W":PRINT#1,Z%
  145. 3050 FOR I=1 TO Z%-1:PRINT#1,AD$(I):NEXT I
  146. 3060 FOR I=1 TO Z%-1:PRINT#1,LO$(I):NEXT I
  147. 3070 CLOSE 1
  148. 3080 :
  149. 3100 :     RETURN
  150. 3110 :
  151. 3200 REM *** DRUCKER-AUSGABE ***
  152. 3210 :
  153. 3215 IF AD$(1)="" THEN 3300
  154. 3220 PRINT H3$ B$(1,2):F%=0
  155. 3230 PRINT"[218]AHL DER [203]OPIEN (0 ZUM [193]USSTIEG)":PRINT:INPUT F%:IF F%=0 THEN3300
  156. 3235 POKE 150,64:OPEN 1,4:PRINT#1,D0$+CHR$(10)+CHR$(10)
  157. 3240 FOR I=1 TO F%
  158. 3245 :   AG$=AT$+DV$:GOSUB 3320
  159. 3250 :   FOR J=1 TO Z%-1
  160. 3255 :       AG$=AD$(J):GOSUB 3320
  161. 3260 :   NEXT J
  162. 3265 :   AG$=+DV$+AL$+DV$:GOSUB 3320
  163. 3270 :   FOR J=1 TO Z%-1
  164. 3275 :       AG$=LO$(J):GOSUB 3320
  165. 3280 :   NEXT J
  166. 3285 NEXT I
  167. 3290 CLOSE 1
  168. 3295 :
  169. 3300 :       RETURN
  170. 3310 :
  171. 3320 REM *** DRUCK-SCHLEIFE ***
  172. 3325 :
  173. 3330 L=1:FOR K=1 TO LEN(AG$)
  174. 3335 CH$=MID$(AG$,K,1):CH=ASC(CH$)
  175. 3340 IF CH$="[190]"THEN CH$=CHR$(10)
  176. 3342 IF CH$="_"THEN CH$=" "
  177. 3345 IF CH$="[184]"THEN CH$=D1$
  178. 3346 IF CH$="[170]"THEN CH$=D2$
  179. 3347 IF CH$="[175]"THEN CH$=D3$
  180. 3348 IF CH$="[162]"THEN CH$=D4$
  181. 3349 IF CH$="[176]"THEN CH$=D5$
  182. 3350 IF CH>64 AND CH<94 THEN CH$=CHR$(CH+32)
  183. 3352 IF CH>192 AND CH<253 THEN CH$=CHR$(CH-128)
  184. 3354 IF L>80 AND CH$=" "THEN PRINT#1,CHR$(10):L=1:GOTO 3360
  185. 3355 PRINT#1,CH$;:L=L+1:IF CH$=CHR$(10) OR CH$=CHR$(13) THEN L=1
  186. 3360 NEXT K
  187. 3370 PRINT#1,CHR$(13)+DV$
  188. 3380 :
  189. 3385 :     RETURN
  190. 3390 :
  191. 3400 REM *** DIRECTORY ***
  192. 3410 :
  193. 3415 T$="[150]<TASTE>[158]"
  194. 3420 PRINT"[147]DIRECTORY[158]":PRINT
  195. 3430 OPEN 1,8,0,"$"
  196. 3440 FOR I=1 TO 6:GET#1,A$:NEXT I
  197. 3450 FORI=1TO28:GET#1,A$:PRINT A$;:NEXT I:PRINT
  198. 3460 K=1
  199. 3470 IF K=20 THEN PRINT TAB(30)T$            :GOSUB 9160:K=1
  200. 3480 GET#1,A$,B$:A=0:B=0
  201. 3490 IF A$<>"" THEN A=ASC(A$)
  202. 3500 IF B$<>"" THEN B=ASC(B$)*256
  203. 3510 PRINT A+B;:I=0
  204. 3520 GET#1,A$:PRINT A$;:I=I+1
  205. 3530 IF ST=0 AND I<30 THEN 3520
  206. 3540 IF ST=0 THEN PRINT:K=K+1:GOTO 3470
  207. 3560 CLOSE1:PRINT""TAB(30)T$:GOSUB 9160
  208. 3570 :
  209. 3580 :     RETURN
  210. 3590 :
  211. 3600 REM *** LADEN     ***
  212. 3610 :
  213. 3620 PRINT H3$ B$(1,4):F$=""
  214. 3630 PRINT"[198]ILE-[206]AME (<[210][197][212][213][210][206]> ZUM [193]USSTIEG)":PRINT:INPUT F$:IFF$=""THEN3700
  215. 3640 GOSUB 3940:OPEN 1,8,5,F$+",S,R":INPUT#1,Z%
  216. 3650 FOR I=1 TO Z%-1:GOSUB 3730:AD$(I)=W$:NEXT I
  217. 3660 FOR I=1 TO Z%-1:GOSUB 3730:LO$(I)=W$:NEXT I
  218. 3670 CLOSE 1
  219. 3680 :
  220. 3700 :     RETURN
  221. 3710 :
  222. 3730 REM *** GET-SCHLEIFE ***
  223. 3740 :
  224. 3750 W$=""
  225. 3755 GET#1,Q$:IF Q$=CHR$(13) THEN 3790
  226. 3760 W$=W$+Q$:GOTO 3755
  227. 3770 :
  228. 3790 :      RETURN
  229. 3795 :
  230. 3800 REM *** BEFEHLE AN DISK ***
  231. 3810 :
  232. 3820 PRINT H3$ B$(1,5):F$=""
  233. 3830 PRINT"[194]EFEHL AN [196]ISK (X = [203]EIN [194]EFEHL)":PRINT:INPUT F$:IF F$="X"THEN3860
  234. 3840 OPEN 1,8,15,F$:CLOSE 1
  235. 3850 :
  236. 3860 :    RETURN
  237. 3870 :
  238. 3900 REM *** ERASE ***
  239. 3910 :
  240. 3915 IF AD$(1)="" THEN 3960
  241. 3920 PRINT H3$ B$(1,6)
  242. 3930 PRINT"[193]UFGABEN WIRKLICH LOESCHEN (J/N)?":GOSUB 9160:IF A$<>"J" THEN3960
  243. 3940 FOR I=1 TO Z%-1:AD$(I)="":LO$(I)="":NEXT I:Z%=1
  244. 3950 :
  245. 3960 :    RETURN
  246. 3970 :
  247. 4000 REM *** INFO ***
  248. 4010 :
  249. 4020 PRINT H3$ B$(1,7)
  250. 4030 PRINT"[154][193][213]-[199][197][206] IST EIN [193]UFGABEN-[199]ENERATOR, DER"
  251. 4040 PRINT"[211]TANDARDAUFGABEN AUS DEN FOLGENDEN [194]E-"
  252. 4050 PRINT"REICHEN EINSCHLIESSLICH [204]OESUNG ERZEUGT:"
  253. 4060 PRINT"[150][204][198][203][212] - [204]INEARE [198]UNKTIONEN"
  254. 4065 PRINT"[209][198][203][212] - [209]UADRATISCHE [198]UNKTIONEN"
  255. 4070 PRINT" [204][199][211] - [204]INEARE [199]LEICHUNGS-[211]YSTEME"
  256. 4075 PRINT"[209].[199][204] - [209]UADRATISCHE [199]LEICHUNGEN"
  257. 4080 PRINT"[214][197][203][212] - [199]ERADEN UND [197]BENEN MIT [214]EKTOREN"
  258. 4085 PRINT"[155][196]IE [194]EDIENUNG ERFOLGT MIT DEN VIER"
  259. 4090 PRINT"[195]URSORTASTEN.":PRINT"[194]EREICHSWAHL MIT [158]<[210][201][199][200][212]>[155] ODER [158]<[204][197][198][212]>[155]"
  260. 4095 PRINT"[193]UFGABENWAHL MIT [158]<[196][207][215][206]>[155] ODER [158]<[213][208]>[155] UND":PRINT"[158]<[210][197][212][213][210][206]>[155]."
  261. 4097 PRINT"[218]URUECK ZUR [194]EREICHSWAHL MIT [158]<[213][208]>[155]."
  262. 4100 PRINT"(C) [213]. [211]CHWEBINGHAUS  [212]EL. 0202/465801":PRINT TAB(30)"[158]<[212][193][211][212][197]>"
  263. 4110 :
  264. 4150 GOSUB 9160
  265. 4160 :
  266. 4170 :   RETURN
  267. 4180 :
  268. 4200 REM *** UPGM 2.1 - ZWEI PUNKTE ***
  269. 4210 :
  270. 4220 PA=10
  271. 4230 GOSUB 9400:PX=ZZ:GOSUB 9400:PY=ZZ:GOSUB 9400:QX=ZZ:GOSUB 9400:QY=ZZ
  272. 4240 IF PX=QX THEN 4230
  273. 4250 A=(PY-QY)/(PX-QX):B=PY-A*PX
  274. 4260 TT$=H3$+B$(2,1)
  275. 4270 AD$=H1$+"GEHT DURCH DIE [208]UNKTE [208] = ("+STR$(PX)+"/"+STR$(PY)+") UND "
  276. 4280 AD$=AD$+"[209] = ("+STR$(QX)+"/"+STR$(QY)+")."
  277. 4290 AD$=AD$+"[190]"+H2$
  278. 4300 GOSUB 4350
  279. 4310 GOSUB 9000
  280. 4320 :
  281. 4330 :   RETURN
  282. 4340 :
  283. 4350 REM *** LOESUNG ***
  284. 4355 :
  285. 4360 Z2$="+":IF B<0 THEN Z2$="-":B=ABS(B)
  286. 4370 AN$=STR$(A):IF ABS(A)<1 THEN AN$=LEFT$(AN$,1)+"0"+MID$(AN$,2)
  287. 4375 BN$=STR$(B):IF ABS(B)<1 THEN BN$=LEFT$(BN$,1)+"0"+MID$(BN$,2)
  288. 4380 LO$="Y = "+AN$+"X "+Z2$+BN$
  289. 4385 :
  290. 4390 :           RETURN
  291. 4395 :
  292. 4400 REM *** UPGM 2.2 - PUNKT UND NULLSTELLE ***
  293. 4410 :
  294. 4420 PA=10
  295. 4430 GOSUB 9400:PX=ZZ:GOSUB 9400:PY=ZZ:GOSUB 9400:QX=ZZ:QY=0
  296. 4440 IF PX=QX THEN 4230
  297. 4450 A=(PY-QY)/(PX-QX):B=PY-A*PX
  298. 4460 TT$=H3$+B$(2,2)
  299. 4470 AD$=H1$+"GEHT DURCH DIE [208]UNKTE [208] = ("+STR$(PX)+"/"+STR$(PY)+") UND_"
  300. 4480 AD$=AD$+"SCHNEIDET DIE X-[193]CHSE IN "+STR$(QX)+"."
  301. 4490 AD$=AD$+"[190]"+H2$
  302. 4500 GOSUB 4350
  303. 4510 GOSUB 9000
  304. 4520 :
  305. 4530 :   RETURN
  306. 4540 :
  307. 4600 REM *** UPGM 2.3 - STEIGUNG UND NULLSTELLE ***
  308. 4610 :
  309. 4620 PA=10
  310. 4630 GOSUB 9400:PX=ZZ:PY=0:PA=20:GOSUB 9400:A=ZZ
  311. 4640 GOSUB 9400:IF ZZ>=10 AND A<>0 THEN A=INT(1000*(1/A))/1000
  312. 4650 B=-A*PX
  313. 4660 TT$=H3$+B$(2,3)
  314. 4670 AD$=H1$+"SCHNEIDET DIE X-[193]CHSE IN "+STR$(PX)+" UND_"
  315. 4680 GOSUB 4350
  316. 4690 AD$=AD$+"HAT DIE [211]TEIGUNG "+AN$+".[190]"+H2$
  317. 4700 GOSUB 9000
  318. 4710 :
  319. 4720 :   RETURN
  320. 4730 :
  321. 4800 REM *** UPGM 2.4 - Y-ABSCHNITT UND NULLSTELLE ***
  322. 4810 :
  323. 4820 PA=10
  324. 4830 GOSUB 9400:PX=ZZ:PY=0:GOSUB 9400:B=ZZ:IF PX=0 THEN 4830
  325. 4850 A=-B/PX
  326. 4860 TT$=H3$+B$(2,4)
  327. 4870 AD$=H1$+"SCHNEIDET DIE X-[193]CHSE IN "+STR$(PX)+" UND_"
  328. 4880 AD$=AD$+"SCHNEIDET DIE Y-[193]CHSE IN "+STR$(B)+".[190]"+H2$
  329. 4890 GOSUB 4350
  330. 4900 GOSUB 9000
  331. 4910 :
  332. 4920 :   RETURN
  333. 4930 :
  334. 5000 REM *** UPGM 2.5 - PUNKT UND STEIGUNG ***
  335. 5010 :
  336. 5020 PA=10
  337. 5030 GOSUB 9400:PX=ZZ:GOSUB 9400:PY=ZZ:PA=20:GOSUB 9400:A=ZZ
  338. 5040 GOSUB 9400:IF ZZ>=10 AND A<>0 THEN A=INT(1000*(1/A))/1000
  339. 5050 B=PY-A*PX
  340. 5060 TT$=H3$+B$(2,5)
  341. 5070 AD$=H1$+"GEHT DURCH DEN [208]UNKT [208] = ("+STR$(PX)+"/"+STR$(PY)+") UND_"
  342. 5080 GOSUB 4350
  343. 5090 AD$=AD$+"HAT DIE [211]TEIGUNG "+AN$+".[190]"+H2$
  344. 5100 GOSUB 9000
  345. 5110 :
  346. 5120 :   RETURN
  347. 5130 :
  348. 5200 REM *** UPGM 2.6 - Y-ABSCHNITT UND PUNKT ***
  349. 5210 :
  350. 5220 PRINT LO$
  351. 5230 GOSUB 9400:PX=ZZ:GOSUB 9400:PY=ZZ:GOSUB 9400:B=ZZ
  352. 5240 IF PX=0 THEN 5230
  353. 5250 A=(PY-B)/PX
  354. 5260 TT$=H3$+B$(2,6)
  355. 5270 AD$=H1$+"GEHT DURCH DEN [208]UNKT [208] = ("+STR$(PX)+"/"+STR$(PY)+") UND_"
  356. 5280 AD$=AD$+"SCHNEIDET DIE Y-[193]CHSE IN "+STR$(B)+"."
  357. 5290 AD$=AD$+"[190]"+H2$
  358. 5300 GOSUB 4350
  359. 5310 GOSUB 9000
  360. 5320 :
  361. 5330 :   RETURN
  362. 5340 :
  363. 5400 REM *** UPGM 2.7 - PUNKT UND WINKEL ***
  364. 5410 :
  365. 5420 PA=10
  366. 5430 GOSUB 9400:PX=ZZ:GOSUB 9400:PY=ZZ:GOSUB 9400:WI=ZZ
  367. 5440 IF WI<0 THEN WI=90+ABS(WI)
  368. 5445 WK=(WI/360)*2*(null)
  369. 5450 A=TAN(WK):B=PY-A*PX
  370. 5460 TT$=H3$+B$(2,7)
  371. 5470 AD$=H1$+"GEHT DURCH DEN [208]UNKT [208] = ("+STR$(PX)+"/"+STR$(PY)+") UND_"
  372. 5480 AD$=AD$+"BILDET MIT DER X-[193]CHSE DEN [215]INKEL_"+STR$(WI)+" [199]RAD."
  373. 5490 AD$=AD$+"[190]"+H2$
  374. 5500 GOSUB 4350
  375. 5510 GOSUB 9000
  376. 5520 :
  377. 5530 :   RETURN
  378. 5540 :
  379. 5600 REM *** UPGM 2.8 - STEIGUNG UND Y-ABSCHNITT ***
  380. 5610 :
  381. 5620 PA=10
  382. 5630 GOSUB 9400:B=ZZ:PA=20:GOSUB 9400:A=ZZ
  383. 5640 GOSUB 9400:IF ZZ>=10 AND A<>0 THEN A=INT(1000*(1/A))/1000
  384. 5660 TT$=H3$+B$(2,8)
  385. 5670 AD$=H1$+"SCHNEIDET DIE Y-[193]CHSE IN "+STR$(B)+" UND_"
  386. 5680 GOSUB 4350
  387. 5690 AD$=AD$+"HAT DIE [211]TEIGUNG "+AN$+".[190]"+H2$
  388. 5700 GOSUB 9000
  389. 5710 :
  390. 5720 :   RETURN
  391. 5730 :
  392. 5800 REM *** UPGM 2.9 - GLEICHUNG --> PUNKTE ***
  393. 5810 :
  394. 5820 PA=10
  395. 5830 GOSUB 9400:PX=ZZ:PY=0:GOSUB 9400:A=ZZ
  396. 5835 IF A=0 THEN 5830
  397. 5840 B=-A*PX
  398. 5860 TT$=H3$+B$(2,9)
  399. 5870 GOSUB 4350
  400. 5880 AD$="[199]EGEBEN IST DIE [198]UNKTIONSGLEICHUNG_"+LO$
  401. 5890 AD$=AD$+"[190][194]ESTIMME [206]ULLSTELLE UND [211]TEIGUNGSWINKEL."
  402. 5892 LO$="[215]INKEL: "+STR$(ATN(A)*(180/(null)))+" [199]RAD"
  403. 5894 LO$=LO$+"  [206]ULLSTELLE: "+STR$(PX)
  404. 5900 GOSUB 9000
  405. 5910 :
  406. 5920 :   RETURN
  407. 5930 :
  408. 6000 REM *** UPGM 3.1 - GLEICHUNG   ***
  409. 6010 :
  410. 6020 PA=10
  411. 6030 GOSUB 9400:A=ZZ:GOSUB 9400:B=2*A*ZZ:GOSUB 9400:C=ZZ
  412. 6040 IF A=0 THEN 6030
  413. 6050 XS=-B/(2*A):YS=C-B*B/(4*A)
  414. 6060 IF -YS/A>=0 THEN X1=XS+SQR(-YS/A):X2=XS-SQR(-YS/A):GOSUB 6150
  415. 6065 TT$=H3$+B$(3,1)
  416. 6070 A$=STR$(A):B$=STR$(B):IF B>=0 THEN B$="+"+B$
  417. 6075 C$=STR$(C):IF C>=0 THEN C$="+"+C$
  418. 6080 AD$="[197]INE [208]ARABEL HAT DIE [199]LEICHUNG_Y = "
  419. 6090 AD$=AD$+A$+" X[175]2[176] "+B$+" X "+C$
  420. 6095 AD$=AD$+"[190][194]ERECHNE DEN [211]CHEITELPUNKT UND GGF. DIE [206]ULLSTELLEN."
  421. 6097 LO$="[211]CHEITELPUNKT: ("+STR$(XS)+"/"+STR$(YS)+")_"
  422. 6098 IF -YS/A>=0 THEN LO$=LO$+"[206]ULLSTELLEN: X[162]1[176] ="+X1$+" UND X[162]2[176] ="+X2$
  423. 6099 IF -YS/A<0 THEN LO$=LO$+"[206]ULLSTELLEN EXISTIEREN NICHT."
  424. 6100 GOSUB 9000
  425. 6110 :
  426. 6120 :         RETURN
  427. 6130 :
  428. 6140 :
  429. 6150 REM *** WANDLUNG KLEINER EINS ***
  430. 6155 :
  431. 6160 X1=INT((X1+0.0005)*1000)/1000
  432. 6165 X2=INT((X2+0.0005)*1000)/1000
  433. 6170 Y1=INT((Y1+0.0005)*1000)/1000
  434. 6175 Y2=INT((Y2+0.0005)*1000)/1000
  435. 6180 X1$=STR$(X1):IF ABS(X1)<1 AND X1<>0 THEN X1$=LEFT$(X1$,1)+"0"+MID$(X1$,2)
  436. 6182 Y1$=STR$(Y1):IF ABS(Y1)<1 AND Y1<>0 THEN Y1$=LEFT$(Y1$,1)+"0"+MID$(Y1$,2)
  437. 6184 X2$=STR$(X2):IF ABS(X2)<1 AND X2<>0 THEN X2$=LEFT$(X2$,1)+"0"+MID$(X2$,2)
  438. 6186 Y2$=STR$(Y2):IF ABS(Y2)<1 AND Y2<>0 THEN Y2$=LEFT$(Y2$,1)+"0"+MID$(Y2$,2)
  439. 6190 :
  440. 6195 :         RETURN
  441. 6198 :
  442. 6200 REM *** UPGM 3.2 - SCHEITEL    ***
  443. 6210 :
  444. 6220 PA=10
  445. 6230 GOSUB 9400:XS=ZZ:GOSUB 9400:X1=ZZ:IF X1=XS THEN 6230
  446. 6240 GOSUB 9400:YS=ZZ*(XS-X1)^2:IF YS=0 THEN 6240
  447. 6250 A=-YS/(XS-X1)^2:B=-2*A*XS:C=YS+A*XS*XS
  448. 6265 TT$=H3$+B$(3,2)
  449. 6270 A$=STR$(A):B$=STR$(B):IF B>=0 THEN B$="+"+B$
  450. 6275 C$=STR$(C):IF C>=0 THEN C$="+"+C$
  451. 6280 AD$="[214]ON EINER [208]ARABEL IST DER [211]CHEITELPUNKT [211] = ("
  452. 6290 AD$=AD$+STR$(XS)+"/"+STR$(YS)+") UND EINE [206]ULLSTELLE_X[162]0[176] ="+STR$(X1)
  453. 6295 AD$=AD$+" GEGEBEN.[190][194]ESTIMME DIE [198]UNKTIONSGLEICHUNG."
  454. 6297 LO$="[196]IE [199]LEICHUNG LAUTET:_Y = "+A$+" X[175]2[176] "+B$+" X "+C$+"."
  455. 6300 GOSUB 9000
  456. 6310 :
  457. 6320 :         RETURN
  458. 6330 :
  459. 6340 :
  460. 6400 REM *** UPGM 3.3 - DREI PUNKTE ***
  461. 6410 :
  462. 6420 PA=5
  463. 6430 GOSUB 9400:A=ZZ:GOSUB 9400:B=ZZ:GOSUB 9400:C=ZZ
  464. 6440 IF A=0 THEN 6430
  465. 6450 GOSUB 9400:X1=ZZ:GOSUB 9400:X2=ZZ:GOSUB 9400:X3=ZZ
  466. 6455 IF X1=X2 OR X1=X3 OR X2=X3 THEN 6450
  467. 6460 Y1=A*X1*X1+B*X1+C:Y2=A*X2*X2+B*X2+C:Y3=A*X3*X3+B*X3+C
  468. 6465 TT$=H3$+B$(3,3)
  469. 6470 A$=STR$(A):B$=STR$(B):IF B>=0 THEN B$="+"+B$
  470. 6475 C$=STR$(C):IF C>=0 THEN C$="+"+C$
  471. 6480 AD$="[196]IE [208]UNKTE [208] = ("+STR$(X1)
  472. 6485 AD$=AD$+"/"+STR$(Y1)+"), [209] = ("+STR$(X2)+"/"+STR$(Y2)+") UND_[210] = ("
  473. 6490 AD$=AD$+STR$(X3)+"/"+STR$(Y3)+")
  474. 6495 AD$[178]AD$[170]" LIEGEN AUF EINER (null)ARABEL.COSPEEKESTIMME DIE ASCUNKTIONSGLEICHUNG."
  475. 6497 LO$[178]"STR$IE CHR$LEICHUNG LAUTET:_Y = "[170]A$[170]" XAND2OR "[170]B$[170]" X "[170]C$[170]"."
  476. 6500 [141] 9000
  477. 6510 :
  478. 6520 :         [142]
  479. 6530 :
  480. 6600 [143] *** UPGM 3.4 - PARABEL-GERADE ***
  481. 6610 :
  482. 6620 PA[178]5
  483. 6630 [141] 9400:A[178]ZZ:[141] 9400:B[178]ZZ:[141] 9400:C[178]ZZ
  484. 6640 [139] A[178]0 [167] 6630
  485. 6650 [141] 9400:M[178]B[171]ZZ[172]2[172]A:[141] 9400:N[178]C[171]ZZ[172]A
  486. 6655 [139] M[178]0 [167] 6630
  487. 6660 H[178](B[171]M)[174]2[173](4[172]A[172]A)[171](C[171]N)[173]A
  488. 6663 [139]H[177][178]0[167]X1[178][171](B[171]M)[173](2[172]A)[170][186](H):Y1[178]M[172]X1[170]N:X2[178][171](B[171]M)[173](2[172]A)[171][186](H):Y2[178]M[172]X2[170]N
  489. 6664 [141] 6150
  490. 6665 TT$[178]H3$[170]B$(3,4)
  491. 6670 A$[178][196](A):B$[178][196](B):[139] B[177][178]0 [167] B$[178]"+"[170]B$
  492. 6672 M$[178][196](M):N$[178][196](N):[139] N[177][178]0 [167] N$[178]"+"[170]N$
  493. 6675 C$[178][196](C):[139] C[177][178]0 [167] C$[178]"+"[170]C$
  494. 6680 AD$[178]"CHR$EGEBEN IST EINE (null)ARABEL MIT_Y = "[170]A$[170]" XAND2OR "[170]B$[170]" X "[170]C$
  495. 6685 AD$[178]AD$[170]" UND EINE CHR$ERADE MIT_Y = "[170]M$[170]" X "[170]N$[170]".COS"
  496. 6687 AD$[178]AD$[170]"PEEKERECHNE DIE (null)CHNITTPUNKTE_(FALLS EXISTENT)."
  497. 6688 [139] H[179]0 [167] LO$[178]"CHR$ERADE UND (null)ARABEL SCHNEIDEN SICH NICHT."
  498. 6689 [139] H[177][178]0 [167] LO$[178]"(null) = ("[170]X1$[170]"/"[170]Y1$[170]")_(null) = ("[170]X2$[170]"/"[170]Y2$[170]")"
  499. 6700 [141] 9000
  500. 6710 :
  501. 6720 :         [142]
  502. 6730 :
  503. 6740 :
  504. 6800 [143] *** UPGM 4 - LIN.GS ***
  505. 6810 :
  506. 6812 TT$[178]H3$[170]B$(4,1)
  507. 6815 [153] TT$:[133]"DIMENSION DES SYSTEMS BIS 4";N%:[139] N%[177]4[167] 6815
  508. 6820 [133]"MAXIMALER BETRAG BIS 9";MX%:[139] MX%[177]9 [167] 6820
  509. 6830 SB$(1)[178]"X":SB$(2)[178]"Y":SB$(3)[178]"Z"
  510. 6835 [129] I[178]1 [164] N%:[141] 6950:X%(I)[178]ZZ:[130] I
  511. 6840 AD$[178]"PEEKESTIMME DIE (null)OESUNGSMENGE DES (null)YSTEMS:COSCOS"
  512. 6845 [129] K[178]1 [164] N%
  513. 6850 : SU%[178]0
  514. 6855 :   [129] J[178]1 [164] N%
  515. 6860 :     [141] 6950
  516. 6875 :     [139] N%[177]3 [167] AD$[178]AD$[170]Z$[170]" XNEW"[170][201]([196](J),1)[170]"OR "
  517. 6880 :     [139] N%[179][178]3 [167] AD$[178]AD$[170]Z$[170]" "[170]SB$(J)[170]" "
  518. 6885 :     SU%[178]SU%[170]X%(J)[172]ZZ
  519. 6890 :   [130] J
  520. 6895 : GL$[178]"  = "[170][196](SU%)
  521. 6900 : AD$[178]AD$[170]GL$[170]"COS"
  522. 6905 [130] K
  523. 6910 :
  524. 6915 LO$[178]"("
  525. 6925 [129] I[178]1 [164] N%[171]1
  526. 6930 LO$[178]LO$[170][196](X%(I))[170]","
  527. 6935 [130] I
  528. 6940 LO$[178]LO$[170][196](X%(N%))[170]")"
  529. 6942 [141] 9000
  530. 6945 :
  531. 6947 :        [142]
  532. 6948 :
  533. 6950 [143] *** UPGM ZUFALL IN 4.1 ***
  534. 6955 :
  535. 6960 ZZ[178][181]([187](1)[172]2[172]MX%)[171]MX%
  536. 6970 Z$[178][196]([182](ZZ)):[139] [195](Z$)[179]3 [167] Z$[178][200](LE$,3[171][195](Z$))[170]Z$
  537. 6975 [139] ZZ[179]0 [167] Z$[178]"-"[170]Z$
  538. 6980 [139] ZZ[177][178]0 [167] Z$[178]"+"[170]Z$
  539. 6985 :
  540. 6990 :         [142]
  541. 6995 :
  542. 7000 [143] *** UPGM 5.1 - GANZE  LOESUNGEN ***
  543. 7010 :
  544. 7020 TT$[178]H3$[170]B$(5,1)
  545. 7030 [141] 7150:[141] 7170:[141] 7182:[141] 7500:[141] 6150
  546. 7040 LO$[178]"XNEW1OR = "[170]X1$[170]",   "[170]"XNEW2OR = "[170]X2$[170]"_"
  547. 7050 [141] 9000
  548. 7070 :
  549. 7080 :         [142]
  550. 7090 :
  551. 7150 [143] *** UPGM ZUFALL            ***
  552. 7152 :
  553. 7154 X1[178][181]([187](1)[172]1000[170]1)[173]100
  554. 7156 X2[178][181]([187](1)[172]1000[170]1)[173]100
  555. 7158 A[178][181]([187](1)[172]10)[170]1
  556. 7160 VO[178][187](1):[139] VO[177].5 [167] X1[178][171]X1
  557. 7162 VO[178][187](1):[139] VO[177].5 [167] X2[178][171]X2
  558. 7164 VO[178][187](1):[139] VO[177].5 [167] A[178][171]A
  559. 7165 :
  560. 7166 :       [142]
  561. 7168 :
  562. 7170 [143] *** UPGM REELL --> GANZ    ***
  563. 7172 :
  564. 7174 X1[178][181](X1):X2[178][181](X2)
  565. 7176 :
  566. 7178 :       [142]
  567. 7180 :
  568. 7182 [143] *** UPGM KONSTRUKT REELL   ***
  569. 7184 :
  570. 7185 B[178][171](X1[170]X2)
  571. 7186 C[178][181](((B[172]B[171](X1[171]X2)[172](X1[171]X2))[173]4)[172]10)[173]10
  572. 7187 B[178]A[172]B:C[178]A[172]C
  573. 7188 :
  574. 7189 :       [142]
  575. 7190 :
  576. 7191 [143] *** UPGM KONSTRUKT KOMPLEX ***
  577. 7192 :
  578. 7193 B[178][171]2[172]X1
  579. 7194 C[178]X2[172]X2[170]X1[172]X1
  580. 7195 B[178]A[172]B:C[178]A[172]C
  581. 7196 :
  582. 7197 :       [142]
  583. 7198 :
  584. 7200 [143] *** UPGM 5.2 - REELLE LOESUNGEN ***
  585. 7210 :
  586. 7220 TT$[178]H3$[170]B$(5,2)
  587. 7230 [141] 7150:[141] 7182:[141] 7500:[141] 6150
  588. 7232 LO$[178]"XNEW1OR = "[170]X1$[170]",   "[170]"XNEW2OR = "[170]X2$[170]"_"
  589. 7235 [141] 9000
  590. 7240 :
  591. 7250 :         [142]
  592. 7260 :
  593. 7400 [143] *** UPGM 5.3 - ZWEI KOMPLEXE LOESUNGEN ***
  594. 7410 :
  595. 7420 TT$[178]H3$[170]B$(5,3)
  596. 7430 [141] 7150:[141] 7170:X2[178][182](X2):[141] 7191:[141] 7500:[141] 6150
  597. 7440 LO$[178]"XNEW1OR = "[170]X1$[170]" +"[170]X2$[170]"I"
  598. 7445 LO$[178]LO$[170]",   XNEW2OR = "[170]X1$[170]" -"[170]X2$[170]"I_"
  599. 7447 [141] 9000
  600. 7450 :
  601. 7460 :           [142]
  602. 7470 :
  603. 7500 [143] *** AUSDRUCKSTRING ***
  604. 7502 :
  605. 7504 Z1$[178]"+":[139] B[179]0 [167] Z1$[178]"-"
  606. 7505 Z2$[178]"+":[139] C[179]0 [167] Z2$[178]"-"
  607. 7510 B[178][182](B):C[178][182](C)
  608. 7515 AD$[178]"PEEKESTIMME DIE (null)OESUNGEN DER CHR$LEICHUNG _"
  609. 7516 AN$[178][196](A):[139] [182](A)[179]1 [175] A[179][177]0 [167] AN$[178][200](AN$,1)[170]"0"[170][202](AN$,2)
  610. 7517 BN$[178][196](B):[139] B[179]1 [175] B[179][177]0 [167] BN$[178][200](BN$,1)[170]"0"[170][202](BN$,2)
  611. 7518 CN$[178][196](C):[139] C[179]1 [175] C[179][177]0 [167] CN$[178][200](CN$,1)[170]"0"[170][202](CN$,2)
  612. 7520 AD$[178]AD$[170]AN$[170]" XAND2OR "[170]Z1$[170]BN$[170]" X "[170]Z2$[170]CN$[170]" = 0"
  613. 7530 :
  614. 7535 :    [142]
  615. 7540 :
  616. 9000 [143] *** UPGM AUSGABE           ***
  617. 9010 :
  618. 9020 [153] TT$:[153]:[153]:[153]"ATNUFGABE (null)R."Z%:[153]
  619. 9030 AG$[178]AD$:[141]9220:[153]:[153]:[153]:[153]"(null)OESUNG:":[153]
  620. 9040 AG$[178]LO$:[141]9220
  621. 9050 LO$[178][196](Z%)[170]". "[170]LO$
  622. 9060 AD$[178]"FREATNUFGABE"[170][196](Z%)[170]"+COS"[170]AD$[170]"COS"
  623. 9070 [153]
  624. 9080 [153]"STR$IESE ATNUFGABE SPEICHERN J/N?"
  625. 9090 [141]9160
  626. 9100 [139] A$[178]"J" [175] Z%[177]24 [167] [153]"CHR$EHT NICHT - (null)PEICHER IST VOLL!":[137]9090
  627. 9110 [139] A$[178]"J" [175] Z%[179][178]24 [167] AD$(Z%)[178]AD$:LO$(Z%)[178]LO$:Z%[178]Z%[170]1:[137]9140
  628. 9120 [139] A$[179][177]"N" [167]9090
  629. 9130 :
  630. 9140 :          [142]
  631. 9150 :
  632. 9160 [143] *** WARTEN AUF TASTENDRUCK ***
  633. 9170 :
  634. 9175 [151] 198,0
  635. 9180 [161] A$:[139] A$[178]"" [167]9180
  636. 9190 :
  637. 9200 :           [142]
  638. 9210 :
  639. 9220 [143] *** BILDSCHIRM-DRUCK ***
  640. 9230 :
  641. 9240 [129] I[178]1 [164] [195](AG$)
  642. 9250 CH$[178][202](AG$,I,1)
  643. 9260 [139] CH$[178]"_"[176] CH$[178]"COS"[167] CH$[178][199](13)
  644. 9270 [139] CH$[178]"FRE" [176] CH$[178]"+" [176] CH$[178]"AND" [176] CH$[178]"NEW" [176] CH$[178]"OR" [167] CH$[178]""
  645. 9280 [153] CH$;
  646. 9290 [130] I
  647. 9300 [153]
  648. 9310 :
  649. 9400 [143] *** ZUFALL ***
  650. 9410 :
  651. 9420 ZZ[178][181]([187](1)[172]PA)
  652. 9430 VO[178][187](1):[139] VO[177][178].5 [167] ZZ[178]ZZ[172]([171]1)
  653. 9440 :
  654. 9450 :      [142]
  655. 9460 :
  656. 10010 [143] *** UPGM 1 - ZWEI PUNKTE --> GERADE ***
  657. 10020 :
  658. 10030 TT$[178]H3$[170]B$(6,1)
  659. 10040 [141]12560
  660. 10050 AX[178]UX:AY[178]UY:AZ[178]UZ:BX[178]VX:BY[178]VY:BZ[178]VZ
  661. 10060 QX[178]UX[170]VX:QY[178]UY[170]VY:QZ[178]UZ[170]VZ
  662. 10070 AD$[178]"STR$IE (null)UNKTE_(null) = ("[170][196](UX)[170]"/"[170][196](UY)[170]"/"[170][196](UZ)[170]") UND (null) = ("
  663. 10080 AD$[178]AD$[170][196](QX)[170]"/"[170][196](QY)[170]"/"[170][196](QZ)[170]")_GEHOEREN ZU EINER CHR$ERADEN."
  664. 10090 AD$[178]AD$[170]"COSPEEKESTIMME DIE CHR$LEICHUNG IN (null)ARAMETERFORM."
  665. 10100 GE[178]0:N$[178]"G":[141]13080:LO$[178]"COS"[170]GE$
  666. 10110 [141] 9000
  667. 10120 :
  668. 10130 :         [142]
  669. 10140 :
  670. 10150 :
  671. 10160 [143] *** UPGM 2 - DREI PUNKTE KOLLINEAR  ***
  672. 10170 :
  673. 10180 TT$[178]H3$[170]B$(6,2)
  674. 10190 [141]12560:[143] GERADE ERZEUGEN
  675. 10200 PX[178]UX:PY[178]UY:PZ[178]UZ:QX[178]UX[170]VX:QY[178]UY[170]VY:QZ[178]UZ[170]VZ
  676. 10210 PA[178]10:[141]9400:[139] ZZ[177]0 [167] [141]12660:EL[178]1:[137]10230
  677. 10220 PA[178]10:[141] 9400:SX[178]ZZ:[141] 9400:SY[178]ZZ:[141] 9400:SZ[178]ZZ
  678. 10230 [139] (SX[178]PX [175] SY[178]PY [175] SZ[178]PZ) [176] (SX[178]QX [175] SY[178]QY [175] SZ[178]QZ) [167]10210
  679. 10240 [141]12760
  680. 10250 AD$[178]"(null)IND DIE (null)UNKTE_(null) = ("[170][196](PX)[170]"/"[170][196](PY)[170]"/"[170][196](PZ)[170]"), "
  681. 10260 AD$[178]AD$[170]"(null) = ("[170][196](QX)[170]"/"[170][196](QY)[170]"/"[170][196](QZ)[170]")_UND "
  682. 10270 AD$[178]AD$[170]"(null) = ("[170][196](SX)[170]"/"[170][196](SY)[170]"/"[170][196](SZ)[170]") KOLLINEAR?"
  683. 10280 [139] EL[178]1 [167] LO$[178]"STR$IE (null)UNKTE SIND KOLLINEAR."
  684. 10290 [139] EL[178]0 [167] LO$[178]"STR$IE (null)UNKTE SIND NICHT KOLLINEAR."
  685. 10300 [141] 9000
  686. 10310 :
  687. 10320 :         [142]
  688. 10330 :
  689. 10340 :
  690. 10350 [143] *** UPGM 3 - SCHNITT ZWEIER GERADEN ***
  691. 10360 :
  692. 10370 TT$[178]H3$[170]B$(6,3)
  693. 10380 [141]12560:AX[178]UX:AY[178]UY:AZ[178]UZ:BX[178]VX:BY[178]VY:BZ[178]VZ
  694. 10390 FO[178]FO[170]1:[139] FO[177][178]5 [167] FO[178]1
  695. 10400 [145] FO [137]10420,10500,10580,10710
  696. 10410 :
  697. 10420 LO$[178]"STR$IE CHR$ERADEN SIND IDENTISCH."
  698. 10430 [141]12660:[139] ZZ[178]0 [167]10430
  699. 10440 UX[178]SX:UY[178]SY:UZ[178]SZ
  700. 10450 [141]12660:VX[178]SX[171]UX:VY[178]SY[171]UY:VZ[178]SZ[171]UZ
  701. 10460 [139] VX[178]UX [175] VY[178]UY [175] VZ[178]UZ [167]10380
  702. 10470 [139] VX[178]0 [175] VY[178]0 [175] VZ[178]0 [167]10380
  703. 10480 [137]10790
  704. 10490 :
  705. 10500 LO$[178]"STR$IE CHR$ERADEN SIND PARALLEL, JEDOCH NICHT IDENTISCH."
  706. 10510 PA[178]4:[141] 9400:[139] ZZ[178]0 [176] ZZ[178]1 [167]10510
  707. 10520 VX[178]ZZ[172]BX:VY[178]ZZ[172]BY:VZ[178]ZZ[172]BZ
  708. 10530 PA[178]10:[141] 9400:SX[178]ZZ:[141] 9400:SY[178]ZZ:[141] 9400:SZ[178]ZZ
  709. 10540 [141]12760:[139] EL[178]1 [167]10530
  710. 10550 UX[178]SX:UY[178]SY:UZ[178]SZ
  711. 10560 [137]10790
  712. 10570 :
  713. 10580 [143]  *** SCHNITTPUNKT EXISTIERT ***
  714. 10590 [141]12660:PX[178]SX:PY[178]SY:PZ[178]SZ:[143] PUNKT P AUS G
  715. 10600 PA[178]10:[141] 9400:SX[178]ZZ:[141] 9400:SY[178]ZZ:[141] 9400:SZ[178]ZZ
  716. 10610 [141]12760:[139] EL[178]1 [167]10600:[143] PUNKT S NICHT AUS G
  717. 10620 UX[178]SX:UY[178]SY:UZ[178]SZ:VX[178]PX[171]UX:VY[178]PY[171]UY:VZ[178]PZ[171]UZ
  718. 10630 [139] VX[178]0 [175] VY[178]0 [175] VZ[178]0 [167]10600
  719. 10640 X[178](BX[172]VX[170]BY[172]VY[170]BZ[172]VZ)[173]([186](BX[172]BX[170]BY[172]BY[170]BZ[172]BZ)[172][186](VX[172]VX[170]VY[172]VY[170]VZ[172]VZ))
  720. 10650 WI[178][165] A(X)
  721. 10660 LO$[178]"(null)CHNITTPUNKT (null) = ("[170][196](PX)[170]"/"
  722. 10670 LO$[178]LO$[170][196](PY)[170]"/"[170][196](PZ)[170]") "
  723. 10680 LO$[178]LO$[170]"_(null)INKEL: "[170][196](WI)[170]" CHR$RAD."
  724. 10690 [137]10790
  725. 10700 :
  726. 10710 LO$[178]"STR$IE CHR$ERADEN SIND WINDSCHIEF ZUEINANDER."
  727. 10720 [141]12560:[139] VX[172]BY[178]VY[172]BX [167]10720
  728. 10730 N[178](BX[172](UY[171]AY)[170]BY[172](AX[171]UX))[173](VX[172]BY[171]VY[172]BX)
  729. 10740 M[178](UX[170]N[172]VX[171]AX)[173]BX
  730. 10750 [139] AZ[170]M[172]BZ[178]UZ[170]N[172]VZ [167]10720: [143] NICHT WINDSCHIEF
  731. 10760 :
  732. 10770 :
  733. 10780 :
  734. 10790 GE[178]0:N$[178]"G":[141]13080:G1$[178]GE$
  735. 10800 N$[178]"H":AX[178]UX:AY[178]UY:AZ[178]UZ:BX[178]VX:BY[178]VY:BZ[178]VZ:[141]13080:G2$[178]GE$
  736. 10810 AD$[178]"(null)ELCHE (null)AGE ZUEINANDER HABEN DIE CHR$ERADENCOSCOS"
  737. 10820 AD$[178]AD$[170]G1$[170]"COSUNDCOS"[170]G2$[170]"COSPEEKERECHNE GGF. DEN (null)CHNITTPUNKT."
  738. 10830 [141] 9000
  739. 10840 :
  740. 10850 :           [142]
  741. 10860 :
  742. 10870 :
  743. 10880 [143] *** UPGM 4 - DREI PUNKTE --> EBENE  ***
  744. 10890 :
  745. 10900 TT$[178]H3$[170]B$(6,4)
  746. 10910 [141]12160
  747. 10920 N$[178]"VAL":GE[178]1:[141]13080:LO$[178]"COS"[170]GE$
  748. 10930 AD$[178]"CHR$ESUCHT IST DIE CHR$LEICHUNG EINER VALBENE IN (null)ARAMETERFORM, DIE DIE "
  749. 10940 AD$[178]AD$[170]"(null)UNKTE_(null) = ("[170][196](AX)[170]"/"[170][196](AY)[170]"/"[170][196](AZ)[170]"), (null) = ("
  750. 10950 AD$[178]AD$[170][196](AX[170]CX)[170]"/"[170][196](AY[170]CY)[170]"/"[170][196](AZ[170]CZ)[170]")_UND (null) = ("
  751. 10960 AD$[178]AD$[170][196](AX[170]BX)[170]"/"[170][196](AY[170]BY)[170]"/"[170][196](AZ[170]BZ)[170]") ENTHAELT."
  752. 10970 [141] 9000
  753. 10980 :
  754. 10990 :          [142]
  755. 11000 :
  756. 11010 :
  757. 11020 [143] *** UPGM 5 - VIER PUNKTE AUF EBENE? ***
  758. 11030 :
  759. 11040 TT$[178]H3$[170]B$(6,5)
  760. 11050 PA[178]10
  761. 11060 [141]12160
  762. 11070 PX[178]AX:PY[178]AY:PZ[178]AZ:QX[178]AX[170]BX:QY[178]AY[170]BY:QZ[178]AZ[170]BZ:RX[178]AX[170]CX:RY[178]AY[170]CY:RZ[178]AZ[170]CZ
  763. 11080 PA[178]10:[141] 9400:[139] ZZ[177]0 [167] [141]12440:[137]11100
  764. 11090 PA[178]10:[141] 9400:SX[178]ZZ:[141] 9400:SY[178]ZZ:[141] 9400:SZ[178]ZZ
  765. 11100 [139] (SX[178]PX [175] SY[178]PY [175] SZ[178]PZ) [167]11080
  766. 11110 [139] (SX[178]QX [175] SY[178]QY [175] SZ[178]QZ) [167]11080
  767. 11120 [139] (SX[178]RX [175] SY[178]RY [175] SZ[178]RZ) [167]11080
  768. 11130 [141]12350
  769. 11140 [139] EL[178]1 [167] LO$[178]"STR$IE (null)UNKTE LIEGEN IN EINER VALBENE."
  770. 11150 [139] EL[178]0 [167] LO$[178]"STR$IE (null)UNKTE LIEGEN NICHT IN EINER VALBENE."
  771. 11160 AD$[178]"CHR$EHOEREN DIE VIER (null)UNKTE_(null) = ("[170][196](PX)[170]"/"[170][196](PY)[170]"/"[170][196](PZ)
  772. 11170 AD$[178]AD$[170]"), (null) = ("[170][196](QX)[170]"/"[170][196](QY)[170]"/"[170][196](QZ)[170]"),"
  773. 11180 AD$[178]AD$[170]"_(null) = ("[170][196](RX)[170]"/"[170][196](RY)[170]"/"[170][196](RZ)[170]") UND"
  774. 11190 AD$[178]AD$[170]" (null) = ("[170][196](SX)[170]"/"[170][196](SY)[170]"/"[170][196](SZ)[170]")_ZU EINER VALBENE?"
  775. 11200 [141] 9000
  776. 11210 :
  777. 11220 :               [142]
  778. 11230 :
  779. 11240 :
  780. 11250 [143] *** UPGM 6 - SCHNITT ZWEIER EBENEN ***
  781. 11260 :
  782. 11270 TT$[178]H3$[170]B$(6,6)
  783. 11280 PA[178]8
  784. 11290 [141] 9400:A1[178]ZZ:[139] A1[178]0 [167]11290
  785. 11300 [141] 9400:B1[178]ZZ[172]A1:[141] 9400:C1[178]ZZ[172]A1
  786. 11310 [141] 9400:D1[178]ZZ[172]A1:[139] ZZ[178]0 [167]11310
  787. 11320 FO[178]FO[170]1:[139] FO[177][178]4  [167] FO[178]1
  788. 11330 [145] FO [137] 11350,11450,11570
  789. 11340 :
  790. 11350 LO$[178]"STR$IE VALBENEN SIND IDENTISCH."
  791. 11360 [141] 9400:A2[178]ZZ[172]A1:B2[178]ZZ[172]B1:C2[178]ZZ[172]C1:D2[178]ZZ[172]D1:[139] ZZ[178]0 [176] ZZ[178]1 [167]11360
  792. 11370 AX[178]D1[173]A1:AY[178]0:AZ[178]0:BX[178][171]B1[173]A1:BY[178]1:BZ[178]0:CX[178][171]C1[173]A1:CY[178]0:CZ[178]1
  793. 11380 GE[178]1:N$[178]"VALNEW1OR":[141]13080:ZW$[178]GE$
  794. 11390 PX[178]AX[170]BX[170]CX:PY[178]AY[170]BY[170]CY:PZ[178]AZ[170]BZ[170]CZ
  795. 11400 QX[178]AX[171]CX:QY[178]AY[171]CY:QZ[178]AZ[171]CZ:RX[178]AX[170]BX:RY[178]AY[170]BY:RZ[178]AZ[170]BZ
  796. 11410 AX[178]PX:AY[178]PY:AZ[178]PZ:BX[178]QX[171]PX:BY[178]QY[171]PY:BZ[178]QZ[171]PZ:CX[178]RX[171]PX:CY[178]RY[171]PY:CZ[178]RZ[171]PZ
  797. 11420 GE[178]1:N$[178]"VALNEW2OR":[141]13080:Z2$[178]GE$
  798. 11430 [137]11730
  799. 11440 :
  800. 11450 LO$[178]"STR$IE VALBENEN SIND PARALLEL_ABER NICHT IDENTISCH."
  801. 11460 AX[178]D1[173]A1:AY[178]0:AZ[178]0:BX[178][171]B1[173]A1:BY[178]1:BZ[178]0:CX[178][171]C1[173]A1:CY[178]0:CZ[178]1
  802. 11470 GE[178]1:N$[178]"VALNEW1OR":[141]13080:ZW$[178]GE$
  803. 11480 [141] 9400:M[178]ZZ:A2[178]M[172]A1:B2[178]M[172]B1:C2[178]M[172]C1:[141] 9400:[139] M[178]0[176]M[178]ZZ [167]11480
  804. 11490 D2[178]ZZ[172]D1
  805. 11500 AX[178]D2[173]A2:AY[178]0:AZ[178]0:BX[178][171]B2[173]A2:BY[178]1:BZ[178]0:CX[178][171]C2[173]A2:CY[178]0:CZ[178]1
  806. 11505 [139] AX[179][177][181](AX) [167] 11480
  807. 11510 [141] 9400:M[178]ZZ:[141] 9400:N[178]ZZ:[139] M[178]N [167]11510
  808. 11520 UX[178]BX[170]M[172]CX:UY[178]BY[170]M[172]CY:UZ[178]BZ[170]M[172]CZ:VX[178]BX[170]N[172]CX:VY[178]BY[170]N[172]CY:VZ[178]BZ[170]N[172]CZ
  809. 11530 BX[178]UX:BY[178]UY:BZ[178]UZ:CX[178]VX:CY[178]VY:CZ[178]VZ
  810. 11540 GE[178]1:N$[178]"VALNEW2OR":[141]13080:Z2$[178]GE$
  811. 11550 [137]11730
  812. 11560 :
  813. 11570 [143] SCHNITTGERADE
  814. 11580 AX[178]D1[173]A1:AY[178]0:AZ[178]0:BX[178][171]B1[173]A1:BY[178]1:BZ[178]0:CX[178][171]C1[173]A1:CY[178]0:CZ[178]1
  815. 11590 [139] (CX[172]BY[178]BX[172]CY) [176] (BX[178]0) [167]11290
  816. 11600 GE[178]1:N$[178]"VALNEW1OR":[141]13080:ZW$[178]GE$
  817. 11610 [141]12440:[143] PUNKT AUS EBENE 1
  818. 11620 RX[178]SX:RY[178]SY:RZ[178]SZ:[141]12440:[143] PUNKT NR.2
  819. 11630 [139] (RX[178]SX [175] RY[178]SY [175] RZ[178]SZ) [167]11610
  820. 11640 UX[178]RX:UY[178]RY:UZ[178]RZ:VX[178]SX[171]RX:VY[178]SY[171]RY:VZ[178]SZ[171]RZ
  821. 11650 PA[178]10:[141] 9400:SX[178]ZZ:[141] 9400:SY[178]ZZ:[141] 9400:SZ[178]ZZ
  822. 11660 [141]12350:[139] EL[178]1 [167]11650:[143] PUNKT DARF NICHT ZUR EBENE GEHOEREN
  823. 11670 AX[178]SX:AY[178]SY:AZ[178]SZ:BX[178]UX[171]SX:BY[178]UY[171]SY:BZ[178]UZ[171]SZ
  824. 11680 CX[178]UX[170]VX[171]SX:CY[178]UY[170]VY[171]SY:CZ[178]UZ[170]VZ[171]SZ
  825. 11690 GE[178]1:N$[178]"VALNEW2OR":[141]13080:Z2$[178]GE$
  826. 11700 GE[178]0:N$[178]"G":AX[178]UX:AY[178]UY:AZ[178]UZ:BX[178]VX:BY[178]VY:BZ[178]VZ:[141]13080
  827. 11710 LO$[178]"(null)CHNITTGERADE IST GEGEBEN DURCHCOSCOS"[170]GE$
  828. 11720 :
  829. 11730 AD$[178]"(null)IE LIEGENCOSCOS"[170]ZW$[170]"COSUNDCOS"[170]Z2$[170]"COSZUEINANDER?"
  830. 11740 [141] 9000
  831. 11750 :               [142]
  832. 11760 :
  833. 11770 :
  834. 11780 [143] *** UPGM 7 - SCHNITT GERADE EBENE  ***
  835. 11790 :
  836. 11800 TT$[178]H3$[170]B$(6,7)
  837. 11810 [141]12160:GE[178]1:N$[178]"VAL":[141]13080:ZW$[178]GE$
  838. 11820 FO[178]FO[170]1:[139] FO[177][178]4 [167] FO[178]1
  839. 11830 [145] FO [137]11850,11900,11990
  840. 11840 :
  841. 11850 LO$[178]"STR$IE CHR$ERADE IST (null)EILMENGE DER VALBENE."
  842. 11860 [141]12440:UX[178]SX:UY[178]SY:UZ[178]SZ:[141]12440:VX[178]SX[171]UX:VY[178]SY[171]UY:VZ[178]SZ[171]UZ
  843. 11870 [139] VX[178]0 [175] VY[178]0 [175] VZ[178]0 [167]11860
  844. 11880 [137]12080
  845. 11890 :
  846. 11900 LO$[178]"STR$IE (null)CHNITTMENGE IST LEER."
  847. 11910 PA[178]3:[141] 9400:M[178]ZZ:[141] 9400:N[178]ZZ:[139] M[178]0 [175] N[178]0 [167]11910
  848. 11920 VX[178]M[172]BX[170]N[172]CX:VY[178]M[172]BY[170]N[172]CY:VZ[178]M[172]BZ[170]N[172]CZ
  849. 11930 [139] (VX[178]0 [175] VY[178]0 [175] VZ[178]0) [167]11910
  850. 11940 PA[178]10:[141] 9400:SX[178]ZZ:[141] 9400:SY[178]ZZ:[141] 9400:SZ[178]ZZ
  851. 11950 [141]12350:[139] EL[178]1 [167]11940:[143] PUNKT DARF NICHT AUS DER EBENE SEIN
  852. 11960 UX[178]SX:UY[178]SY:UZ[178]SZ
  853. 11970 [137]12080
  854. 11980 :
  855. 11990 [143] *** ES GIBT GENAU EINEN SCHNITTPUNKT ***
  856. 12000 [141]12440:PX[178]SX:PY[178]SY:PZ[178]SZ
  857. 12010 LO$[178]"STR$ER EINZIGE (null)CHNITTPUNKT IST_(null) = ("[170][196](SX)[170]"/"[170][196](SY)[170]"/"
  858. 12020 LO$[178]LO$[170][196](SZ)[170]")."
  859. 12030 PA[178]3:[141] 9400:SX[178]ZZ:[141] 9400:SY[178]ZZ:[141] 9400:SZ[178]ZZ
  860. 12040 [141]12350:[139] EL[178]1 [167]12030:[143] PUNKT DARF NICHT AUS DER EBENE SEIN
  861. 12050 VX[178]SX[171]PX:VY[178]SY[171]PY:VZ[178]SZ[171]PZ:UX[178]PX[171]VX:UY[178]PY[171]VY:UZ[178]PZ[171]VZ
  862. 12060 :
  863. 12070 :
  864. 12080 [143] *** AUFGABENSTELLUNG ***
  865. 12090 GE[178]0:N$[178]"G":AX[178]UX:AY[178]UY:AZ[178]UZ:BX[178]VX:BY[178]VY:BZ[178]VZ:[141]13080
  866. 12100 AD$[178]"PEEKESTIMME DIE (null)CHNITTMENGE VONCOSCOS"[170]GE$[170]"COSUNDCOS"[170]ZW$
  867. 12110 [141] 9000
  868. 12120 :
  869. 12130 :            [142]
  870. 12140 :
  871. 12150 :
  872. 12160 [143] *** UPGM EBENE ERZEUGEN  ***
  873. 12170 :
  874. 12180 PA[178]10
  875. 12190 [141] 9400:AX[178]ZZ:[141] 9400:AY[178]ZZ:[141] 9400:AZ[178]ZZ
  876. 12200 [141] 9400:BX[178]ZZ:[141] 9400:BY[178]ZZ:[141] 9400:BZ[178]ZZ
  877. 12210 [141] 9400:CX[178]ZZ:[141] 9400:CY[178]ZZ:[141] 9400:CZ[178]ZZ
  878. 12220 [139] (BX[178]0 [175] BY[178]0 [175] BZ[178]0) [176] BX[178]0 [167]12190
  879. 12230 [139] (CX[178]0 [175] CY[178]0 [175] CZ[178]0)    [167]12190
  880. 12240 [139] AX[178]BX [175] AY[178]BY [175] AZ[178]BZ [167]12190
  881. 12250 [139] AX[178]CX [175] AY[178]CY [175] AZ[178]CZ [167]12190
  882. 12260 K1[178]CX[173]BX
  883. 12270 K2[178]K1:[139] BY[179][177]0 [167] K2[178]CY[173]BY
  884. 12280 K3[178]K1:[139] BZ[179][177]0 [167] K3[178]CZ[173]BZ
  885. 12290 [139] (K1[178]K2 [175] K2[178]K3) [167]12190
  886. 12300 [139] CX[172]BY[178]BX[172]CY [167]12190
  887. 12310 :
  888. 12320 :               [142]
  889. 12330 :
  890. 12350 [143] *** UPGM PUNKT AUF EBENE?  ***
  891. 12360 :
  892. 12370 N[178](BX[172](AY[171]SY)[170]BY[172](SX[171]AX))[173](CX[172]BY[171]BX[172]CY)
  893. 12380 M[178](SX[171]AX[171]N[172]CX)[173]BX
  894. 12390 EL[178]0:[139] SZ[178]AZ[170]M[172]BZ[170]N[172]CZ [167] EL[178]1
  895. 12400 :
  896. 12410 :               [142]
  897. 12420 :
  898. 12430 :
  899. 12440 [143] *** UPGM PUNKT AUF EBENE ERZEUGEN  ***
  900. 12450 :
  901. 12460 PA[178]3
  902. 12470 [141] 9400:M[178]ZZ:[141] 9400:N[178]ZZ
  903. 12480 SX[178]AX[170]M[172]BX[170]N[172]CX
  904. 12490 SY[178]AY[170]M[172]BY[170]N[172]CY
  905. 12500 SZ[178]AZ[170]M[172]BZ[170]N[172]CZ
  906. 12510 :
  907. 12520 :         [142]
  908. 12530 :
  909. 12540 :
  910. 12550 [143]
  911. 12560 [143] *** UPGM GERADEN ERZEUGEN ***
  912. 12570 :
  913. 12580 PA[178]10
  914. 12590 [141] 9400:UX[178]ZZ:[141] 9400:UY[178]ZZ:[141] 9400:UZ[178]ZZ
  915. 12600 [141] 9400:VX[178]ZZ:[141] 9400:VY[178]ZZ:[141] 9400:VZ[178]ZZ
  916. 12610 [139] UX[178]VX [175] UY[178]VY [175] UZ[178]VZ [167]12600
  917. 12620 [139] (VX[178]0 [175] VY[178]0 [175] VZ[178]0) [176] VX[178]0 [167]12590
  918. 12630 :
  919. 12640 :       [142]
  920. 12650 :
  921. 12660 [143] *** UPGM PUNKT AUS GERADE ERZEUGEN  ***
  922. 12670 :
  923. 12680 PA[178]3
  924. 12690 [141] 9400:SX[178]UX[170]ZZ[172]VX
  925. 12700 SY[178]UY[170]ZZ[172]VY
  926. 12710 SZ[178]UZ[170]ZZ[172]VZ
  927. 12720 :
  928. 12730 :         [142]
  929. 12740 :
  930. 12750 :
  931. 12760 [143] *** UPGM PUNKT AUS GERADE ? ***
  932. 12770 :
  933. 12780 [139] VY[178]0 [175] SY[179][177]UY [167] EL[178]0:[137]12850
  934. 12790 [139] VZ[178]0 [175] SZ[179][177]UZ [167] EL[178]0:[137]12850
  935. 12800 K1[178](SX[171]UX)[173]VX
  936. 12810 K2[178]K1:[139] VY[179][177]0 [167] K2[178](SY[171]UY)[173]VY
  937. 12820 K3[178]K1:[139] VZ[179][177]0 [167] K3[178](SZ[171]UZ)[173]VZ
  938. 12830 EL[178]0:[139] K1[178]K2 [175] K2[178]K3 [167] EL[178]1
  939. 12840 :
  940. 12850 :         [142]
  941. 12860 :
  942. 12870 :
  943. 13080 [143] *** GERADEN- UND EBENENSTRINGS ERZEUGEN ***
  944. 13090 :
  945. 13100 [139] [195](N$)[178]1 [167] N$[178]" "[170]N$
  946. 13110 AX$[178][196](AX):[139] [195](AX$)[178]2 [167] AX$[178]" "[170]AX$
  947. 13120 BX$[178][196](BX):[139] [195](BX$)[178]2 [167] BX$[178]" "[170]BX$
  948. 13130 CX$[178][196](CX):[139] [195](CX$)[178]2 [167] CX$[178]" "[170]CX$
  949. 13140 AY$[178][196](AY):[139] [195](AY$)[178]2 [167] AY$[178]" "[170]AY$
  950. 13150 BY$[178][196](BY):[139] [195](BY$)[178]2 [167] BY$[178]" "[170]BY$
  951. 13160 CY$[178][196](CY):[139] [195](CY$)[178]2 [167] CY$[178]" "[170]CY$
  952. 13170 AZ$[178][196](AZ):[139] [195](AZ$)[178]2 [167] AZ$[178]" "[170]AZ$
  953. 13180 BZ$[178][196](BZ):[139] [195](BZ$)[178]2 [167] BZ$[178]" "[170]BZ$
  954. 13190 CZ$[178][196](CZ):[139] [195](CZ$)[178]2 [167] CZ$[178]" "[170]CZ$
  955. 13200 GE$[178]"        ("[170]AX$[170]")     ("[170]BX$[170]")"
  956. 13210 [139] GE[178]1 [167] GE$[178]GE$[170]"     ("[170]CX$[170]")"
  957. 13220 GE$[178]GE$[170]"COS"
  958. 13230 GE$[178]GE$[170]N$[170]": X = ("[170]AY$[170]") + M ("[170]BY$[170]")"
  959. 13240 [139] GE[178]1 [167] GE$[178]GE$[170]" + N ("[170]CY$[170]")"
  960. 13250 GE$[178]GE$[170]"COS"
  961. 13260 GE$[178]GE$[170]"        ("[170]AZ$[170]")     ("[170]BZ$[170]")"
  962. 13270 [139] GE[178]1 [167] GE$[178]GE$[170]"     ("[170]CZ$[170]")"
  963. 13280 GE$[178]GE$[170]"COS"
  964. 13290 :
  965. 13300 :          [142]
  966. 13310 :
  967. 13320 :
  968. 13500 [143] *** DATAS FUER MPGM ***
  969. 13510 :
  970. 13520 [131] 169,120,133,251,169,4,133,252,160,0,169,32,145,251,200,162,5
  971. 13530 [131] 228,252,208,4,192,160,240,9,192,0,208,239,230,252,24,144,234,96
  972. 13540 :
  973. 13550 [128]
  974.